home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesS-T.lzh / Striker.lha / Install next >
Text File  |  1980-09-01  |  3KB  |  153 lines
  1. ;****************************
  2.  
  3. (set #readme-file "Readme")
  4. (run ("CPU NOCACHE"))
  5.  
  6. (procedure P_ChkRun
  7.   (if
  8.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  9.     ("")
  10.     (abort 
  11.       (cat
  12.     "You must install \"" #program "\" first!\n"
  13.     "It must be accessible via the path.\n"
  14.     "You can find it in the WHDLoad package."
  15.       )
  16.     )
  17.   )
  18.  
  19. )
  20.  
  21. (if
  22.   (exists #readme-file)
  23.   (if
  24.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  25.     ("")
  26.     (run ("SYS:Utilities/More %s" #readme-file))
  27.     )
  28. )
  29.  
  30. (set #program "WHDLoad")
  31. (P_ChkRun)
  32.  
  33.  
  34. (set @default-dest
  35.   (askdir
  36.     (prompt 
  37.       (cat
  38.     "Where should \"" @app-name "\" installed ?\n"
  39.     "A drawer \"" @app-name "\" will automatically created."
  40.       )
  41.     )
  42.     (help @askdir-help)
  43.     (default @default-dest)
  44.     (disk)
  45.   )
  46. )
  47. (set #dest (tackon @default-dest @app-name))
  48. (if
  49.   (exists #dest)
  50.   (
  51.     (set #choice
  52.       (askbool
  53.         (prompt
  54.           (cat
  55.             "\nDirectory \"" #dest "\" already exists.\n"
  56.             "Should it be deleted?"
  57.           )
  58.         )
  59.         (default 1)
  60.         (choices "Delete" "Skip")
  61.         (help @askbool-help)
  62.       )
  63.     )
  64.     (if
  65.       (= #choice 1)
  66.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  67.     )
  68.   )
  69. )
  70. (makedir #dest
  71.   (help @makedir-help)
  72.   (infos)
  73. )
  74.  
  75. ;----------------------------
  76. (run ("Striker.Imager")
  77. )
  78. (copyfiles
  79.   (help @copyfiles-help)
  80.   (source ("ram:AMIG7"))
  81.   (dest #dest)
  82. )
  83. (copyfiles
  84.   (help @copyfiles-help)
  85.   (source ("ram:AMIG9"))
  86.   (dest #dest)
  87. )
  88. (copyfiles
  89.   (help @copyfiles-help)
  90.   (source ("ram:AMIG8"))
  91.   (dest #dest)
  92. )
  93. (copyfiles
  94.   (help @copyfiles-help)
  95.   (source ("ram:AMIG3"))
  96.   (dest #dest)
  97. )
  98. (copyfiles
  99.   (help @copyfiles-help)
  100.   (source ("ram:AMIG4B"))
  101.   (dest #dest)
  102. )
  103. (copyfiles
  104.   (help @copyfiles-help)
  105.   (source ("ram:AMIG5"))
  106.   (dest #dest)
  107. )
  108. (copyfiles
  109.   (help @copyfiles-help)
  110.   (source ("ram:AMIG6"))
  111.   (dest #dest)
  112. )
  113. (copyfiles
  114.   (help @copyfiles-help)
  115.   (source ("ram:AMIG1b"))
  116.   (dest #dest)
  117. )
  118. (copyfiles
  119.   (help @copyfiles-help)
  120.   (source ("ram:AMIG1AB"))
  121.   (dest #dest)
  122. )
  123. (copyfiles
  124.   (help @copyfiles-help)
  125.   (source ("ram:AMIG2B"))
  126.   (dest #dest)
  127. )
  128. (copyfiles
  129.   (help @copyfiles-help)
  130.   (source ("ram:AMIGA"))
  131.   (dest #dest)
  132. )
  133. (copyfiles
  134.   (help @copyfiles-help)
  135.   (source ("Striker.slave"))
  136.   (dest #dest)
  137. )
  138. (copyfiles
  139.   (help @copyfiles-help)
  140.   (source ("Striker.info"))
  141.   (dest #dest)
  142. )
  143. (copyfiles
  144.   (help @copyfiles-help)
  145.   (source ("Readme"))
  146.   (dest #dest)
  147. )
  148. (copyfiles
  149.   (help @copyfiles-help)
  150.   (source ("Readme.info"))
  151.   (dest #dest)
  152. )
  153. (run ("CPU CACHE"))